home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / PROPAGAT / 1004A.ZIP / GAIN.BAS < prev    next >
BASIC Source File  |  1987-05-12  |  2KB  |  42 lines
  1. 5 PRINT"THIS PROGRAM CALCULATES CAPABILITY OF THE EQUIPMENT "
  2. 7 PRINT" ON BOTH ENDS OF A PATH. USE WITH TROPS PATH LOSS PROGRAM"
  3. 9 PRINT:PRINT" BY WA2TIF -- FROM 11/83 QST ARTICLE BY G3YGF"
  4. 10 PRINT
  5. 15 DIM S$(4):DIM BW(4):DIM NF(8)
  6. 20 BW(1)=300:BW(2)=1000:BW(3)=3000:BW(4)=10000
  7. 30 FOR I=1 TO 8: NF(I)=I:NEXT:GOSUB 1000
  8. 35 PRINT" CALCULATE RECEIVER ERP":PRINT
  9. 40 PRINT;"SELECT RCVR SELECTIVITY IN HZ FROM MENUE":PRINT
  10. 50 PRINT " 1 = 300 HZ    2 = 1000 HZ"
  11. 60 PRINT " 3 = 3000 HZ   4 = 10000 HZ" :PRINT
  12. 70 INPUT " RCVR SELECTIVITY IN HZ";BW :PRINT
  13. 80 PRINT "SELECT RCVR NOISE FIGURE FROM MENUE":PRINT
  14. 90 PRINT " 1 = 1DB   4 = 2DB  7 = 3DB  10 =4DB"
  15. 100 PRINT " 13 = 5DB 16 = 6 DB 7 = 19 DB 22 = 8DB"
  16. 110 PRINT:INPUT "RCVR NOISE FIGURE";NF
  17. 120 S$=S$(BW)
  18. 125 S$=MID$(S$,NF,3):S=VAL(S$)
  19. 130 PRINT;" RCVR SENSITIVITY";S" DB":PRINT
  20. 140 INPUT"ANTENNA GAIN IN DBI"; RG :PRINT
  21. 150 INPUT " FEEDLINE LOSS IN DB"; RL :PRINT
  22. 160 RG=S+RG-RL
  23. 170 PRINT,"RECEIVE GAIN ERP IN DB";RG
  24. 180 PRINT:PRINT"CALCULATE XMTR EIRP":PRINT
  25. 190 INPUT "INPUT XMTR OUTPUT POWER IN WATTS";PW
  26. 200 PD=10*LOG(PW)/LOG(10)+30
  27. 210 PD=INT(PD+.5)
  28. 215 PRINT:PRINT"XMTR PWR OUTPUT" PD" DB":PRINT
  29. 220 INPUT"GAIN OF XMTR ANTENNA (DBI)";GX :PRINT
  30. 230 INPUT "LINE LOSS (DB)";LX:PRINT
  31. 240 PG=PD+GX-LX:PG=INT(PG+.5)
  32. 250 PRINT,"XMTR EIRP ="; PG" DBW"
  33. 260 PRINT:PRINT:TG=PG+RG
  34. 270 PRINT,"TOTAL GAIN " TG" DB"
  35. 280 PRINT
  36. 990 END
  37. 1000 S$(1)="185181179177176174173172
  38. 1010 S$(2)="180176174172171169168167
  39. 1030 S$(3)="175171169167165164163162
  40. 1040 S$(4)="170164162160159158157156
  41. 1050 RETURN
  42.